home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_300 / 316_01 / bcd.z8 < prev    next >
Encoding:
Text File  |  1990-05-14  |  331 b   |  23 lines
  1.     .hlist
  2. /
  3. /----   bcd addition from page 23
  4. /
  5. BCD_SRC =       w1
  6. BCD_DST =       w0
  7. BCD_LEN =       w2
  8. /
  9.     add     BCD_LEN,BCD_SRC
  10.     add     BCD_LEN,BCD_DST
  11.     rcf
  12. /
  13. 1:      dec     BCD_SRC
  14.     dec     BCD_DST
  15.     mov     (BCD_SRC),w3
  16.     adc     (BCD_DST),w3
  17.     da      w3
  18.     mov     w3,(BCD_DST)
  19.     sob     BCD_LEN,1b
  20.     ret
  21. /
  22.  
  23.